home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / icsources.lha / PROGRAMS / SMALL FULL SCREEN SCROLL1 < prev   
Encoding:
Text File  |  1980-12-27  |  20.2 KB  |  765 lines
  1.      section ax,code_c
  2.     opt c-,d+,w-,o+    
  3.     
  4.     include 'df2:insert/custom registers'
  5.     
  6. badd=(320*256)/8
  7.  
  8.     lea $dff000,a6
  9.     move.w #$87e0,dmacon(a6)
  10.     jsr mt_init
  11.     move.l #table,a3
  12.     move.l a3,baz
  13.     jsr cop_init
  14.      move.l $6c,oldirq
  15.      move.l #newirq,$6c
  16. mse:
  17.      cmp.b #$f0,$dff006
  18.      bne mse
  19. zog:
  20.      btst #6,$bfe001
  21.     bne mse
  22.      jsr mt_end
  23.      move.l oldirq,$6c
  24.      move.l copaddr,a0
  25.      move.l oldcop,(a0)
  26. nolib:    
  27.      rts    
  28. newirq:  
  29.     movem.l d0-d7/a0-a6,$75000
  30.     cmpi.w #$0000,boh
  31.     bne whodo
  32.     move.w #$00ff,boh
  33.     jsr bobsetup
  34.         jsr equals
  35.     jsr printy
  36.     jmp who
  37. whodo:    subi.w #$0011,boh
  38. who:    jsr mt_music
  39.     movem.l $75000,d0-d7/a0-a6
  40.     dc.w $4ef9
  41.     
  42. oldirq: dc.l 0
  43. countx: dc.b 0
  44. baz:    dc.l 0
  45. yaz:    dc.b 0
  46. gook:    dc.b 0
  47. ook:    dc.b 0
  48.     even
  49.  
  50. cop_init:
  51.      lea screen,a0
  52.      move.l a0,d0
  53.      move.w d0,lo1
  54.      swap d0
  55.      move.w d0,hi1
  56.      lea screen+badd,a0
  57.      move.l a0,d0
  58.      move.w d0,lo2
  59.      swap d0
  60.      move.w d0,hi2
  61.      lea screen+badd*2,a0
  62.      move.l a0,d0
  63.      move.w d0,lo3
  64.      swap d0
  65.      move.w d0,hi3
  66.      lea screen+badd*3,a0
  67.      move.l a0,d0
  68.      move.w d0,lo4
  69.      swap d0
  70.      move.w d0,hi4
  71.      lea screen+badd*4,a0
  72.      move.l a0,d0
  73.      move.w d0,lo5
  74.      swap d0
  75.      move.w d0,hi5
  76.      moveq #$00,d0
  77.      lea grafname,a1
  78.      move.l $4,a6
  79.      jsr -132(A6)
  80.      move.l $4,A6
  81.      jsr -408(a6)
  82.      tst d0
  83.      beq nolib
  84.      move.l d0,grafbase
  85.      move.l d0,a6
  86.      add.l #$32,d0
  87.      move.l d0,a0
  88.      move.l a0,copaddr
  89.      move.l (a0),oldcop
  90.      move.l #newcop,(a0)
  91.      rts
  92.  
  93.     even
  94.       
  95. grafname: dc.b "graphics.library",0
  96. grafbase: dc.l 0
  97. oldcop:   dc.l 0
  98. copaddr:  dc.l 0
  99.  
  100.     even
  101.  
  102. newcop:     dc.w $0100,$1200
  103.       dc.w $0102
  104. boh:      dc.w $00ff
  105.      dc.w $0120
  106. sp1l:     dc.w $0000,$0122
  107. sp1h:      dc.w $0000 
  108.      dc.w $0124
  109. sp2l:     dc.w $0000,$0126
  110. sp2h:      dc.w $0000 
  111.      dc.w $0128
  112. sp3l:     dc.w $0000,$012a
  113. sp3h:      dc.w $0000 
  114.      dc.w $012c
  115. sp4l:     dc.w $0000,$012e
  116. sp4h:      dc.w $0000
  117.      dc.w $0130
  118. sp5l:     dc.w $0000,$132
  119. sp5h:      dc.w $0000
  120.  scr:       dc.w $2001,$fffe
  121.       dc.w $00e0
  122.  hi1:     dc.w $0000
  123.      dc.w $00e2
  124.  lo1:     dc.w $0000     
  125.      dc.w $00e4
  126.  hi2:     dc.w $0000
  127.      dc.w $00e6
  128.  lo2:     dc.w $0000 
  129.      dc.w $00e8
  130.  hi3:     dc.w $0000
  131.      dc.w $00ea
  132.  lo3:     dc.w $0000 
  133.      dc.w $00ec
  134.  hi4:     dc.w $0000
  135.      dc.w $00ee
  136.  lo4:     dc.w $0000 
  137.      dc.w $00f0
  138.  hi5:     dc.w $0000
  139.      dc.w $00f2
  140.  lo5:     dc.w $0000
  141.      dc.w $008e,$3021 
  142.      dc.w $0090,$30f1
  143.      dc.w $0092,$0020
  144.      dc.w $0094,$00d8
  145.      dc.w $0108,$0008 
  146.      dc.w $180,$000,$182,$000,$184,$fdb,$186,$db9
  147.      dc.w $188,$c97,$18a,$a75,$18c,$853,$18e,$033,$190,$c60
  148.      dc.w $192,$ba5,$194,$962,$196,$530,$198,$db4,$19a,$558
  149.      dc.w $19c,$447,$19e,$336,$1a0,$a40,$1a2,$f44,$1a4,$b00
  150.      dc.w $1a6,$222,$1a8,$333,$1aa,$444,$1ac,$555,$1ae,$666
  151.      dc.w $1b0,$777,$1b2,$888,$1b4,$999,$1b6,$aaa,$1b8,$ccc
  152.      dc.w $1ba,$ddd,$1bc,$eee,$1be,$fff
  153.      dc.w $5001,$fffe
  154.      dc.w $0182,$0fff
  155.      dc.w $0180,$0006
  156.      dc.w $6701,$fffe
  157.      dc.w $0182,$0000
  158.      dc.w $0180,$0000
  159.      dc.w $ffff,$fffe
  160.          DC.W $9601,$fffe
  161.          dc.w $0180
  162. n1:      dc.w $0000
  163.          dc.w $9701,$fffe
  164.          dc.w $0180
  165. n2:      dc.w $0000
  166.          dc.w $9803,$fffe
  167.          dc.w $0180
  168. n3:      dc.w $0000
  169.      dc.w $9904,$fffe
  170.          dc.w $0180
  171. n4:      dc.w $0000
  172.          dc.w $ffff,$ffff
  173.      even
  174.      
  175.  
  176. picdata:
  177.      incbin "df2:graphics/bbc.chrset.raw"
  178.  
  179. screen:
  180.      ds.b 1*badd
  181.      
  182.      
  183. bobsetup:
  184.      lea $dff000,a6
  185.      move.w #$09f0,bltcon0(a6)
  186.      clr.w bltcon1(a6)
  187.      clr.w bltamod(a6)
  188.      move.w #56-50,bltdmod(a6)             ;Destination Modulo
  189.      move.w #56-50,bltamod(a6)             ;Source Modulo (Scr Width - bob width)
  190.      move.l #screen-2+(56*40),bltdpt(a6)   ;Destination Start
  191.      move.l #screen+(56*40),bltapt(a6)     ;Source Start
  192.      move.w #%0000001000011001,bltsize(a6) ;Size (Lo 6 Bits Horiz)    
  193.      rts
  194.  
  195. printy:
  196.      move.l baz,a3
  197.      move.b (a3),yaz
  198.      move.b (a3)+,ook
  199.      move.l a3,baz
  200.      cmpi.b #0,yaz
  201.      bne frek
  202.      move.l #table,a3
  203.      move.l a3,baz
  204.      jmp ik
  205. frek:
  206.      cmpi.b #65,yaz  ;A
  207.      bne char2
  208. char1:     
  209.      move.b picdata+320,screen+48+(56*40)
  210.      move.b picdata+360,screen+48+(56*41)
  211.      move.b picdata+400,screen+48+(56*42)
  212.      move.b picdata+440,screen+48+(56*43)
  213.      move.b picdata+480,screen+48+(56*44)
  214.      move.b picdata+520,screen+48+(56*45)
  215.      move.b picdata+560,screen+48+(56*46)
  216.      move.b picdata+600,screen+48+(56*47)
  217.      jmp ik
  218. char2:   
  219.      cmpi.b #66,yaz  ;B
  220.      bne char3
  221.       move.b picdata+320+1,screen+48+(56*40)
  222.      move.b picdata+360+1,screen+48+(56*41)
  223.      move.b picdata+400+1,screen+48+(56*42)
  224.      move.b picdata+440+1,screen+48+(56*43)
  225.      move.b picdata+480+1,screen+48+(56*44)
  226.      move.b picdata+520+1,screen+48+(56*45)
  227.      move.b picdata+560+1,screen+48+(56*46)
  228.      move.b picdata+600+1,screen+48+(56*47)
  229.      jmp ik
  230. char3:
  231.       cmpi.b #67,yaz  ;C
  232.      bne char4
  233.       move.b picdata+320+2,screen+48+(56*40)
  234.      move.b picdata+360+2,screen+48+(56*41)
  235.      move.b picdata+400+2,screen+48+(56*42)
  236.      move.b picdata+440+2,screen+48+(56*43)
  237.      move.b picdata+480+2,screen+48+(56*44)
  238.      move.b picdata+520+2,screen+48+(56*45)
  239.      move.b picdata+560+2,screen+48+(56*46)
  240.      move.b picdata+600+2,screen+48+(56*47)
  241.      jmp ik
  242. char4:
  243.       cmpi.b #68,yaz  ;D
  244.      bne char5
  245.       move.b picdata+320+3,screen+48+(56*40)
  246.      move.b picdata+360+3,screen+48+(56*41)
  247.      move.b picdata+400+3,screen+48+(56*42)
  248.      move.b picdata+440+3,screen+48+(56*43)
  249.      move.b picdata+480+3,screen+48+(56*44)
  250.      move.b picdata+520+3,screen+48+(56*45)
  251.      move.b picdata+560+3,screen+48+(56*46)
  252.      move.b picdata+600+3,screen+48+(56*47)
  253.      jmp ik
  254. char5:
  255.      cmpi.b #69,yaz  ;E
  256.      bne char6
  257.       move.b picdata+320+4,screen+48+(56*40)
  258.      move.b picdata+360+4,screen+48+(56*41)
  259.      move.b picdata+400+4,screen+48+(56*42)
  260.      move.b picdata+440+4,screen+48+(56*43)
  261.      move.b picdata+480+4,screen+48+(56*44)
  262.      move.b picdata+520+4,screen+48+(56*45)
  263.      move.b picdata+560+4,screen+48+(56*46)
  264.      move.b picdata+600+4,screen+48+(56*47)
  265.      jmp ik
  266. char6:
  267.       cmpi.b #70,yaz  ;F
  268.      bne char7
  269.       move.b picdata+320+5,screen+48+(56*40)
  270.      move.b picdata+360+5,screen+48+(56*41)
  271.      move.b picdata+400+5,screen+48+(56*42)
  272.      move.b picdata+440+5,screen+48+(56*43)
  273.      move.b picdata+480+5,screen+48+(56*44)
  274.      move.b picdata+520+5,screen+48+(56*45)
  275.      move.b picdata+560+5,screen+48+(56*46)
  276.      move.b picdata+600+5,screen+48+(56*47)
  277.      jmp ik
  278. char7:    
  279.      cmpi.b #71,yaz  ;G
  280.      bne char8
  281.       move.b picdata+320+6,screen+48+(56*40)
  282.      move.b picdata+360+6,screen+48+(56*41)
  283.      move.b picdata+400+6,screen+48+(56*42)
  284.      move.b picdata+440+6,screen+48+(56*43)
  285.      move.b picdata+480+6,screen+48+(56*44)
  286.      move.b picdata+520+6,screen+48+(56*45)
  287.      move.b picdata+560+6,screen+48+(56*46)
  288.      move.b picdata+600+6,screen+48+(56*47)
  289.      jmp ik 
  290. char8:
  291.      cmpi.b #72,yaz  ;H
  292.      bne char9
  293.       move.b picdata+320+7,screen+48+(56*40)
  294.      move.b picdata+360+7,screen+48+(56*41)
  295.      move.b picdata+400+7,screen+48+(56*42)
  296.      move.b picdata+440+7,screen+48+(56*43)
  297.      move.b picdata+480+7,screen+48+(56*44)
  298.      move.b picdata+520+7,screen+48+(56*45)
  299.      move.b picdata+560+7,screen+48+(56*46)
  300.      move.b picdata+600+7,screen+48+(56*47)
  301.      jmp ik 
  302. char9:
  303.      cmpi.b #73,yaz  ;I
  304.      bne char10
  305.       move.b picdata+320+8,screen+48+(56*40)
  306.      move.b picdata+360+8,screen+48+(56*41)
  307.      move.b picdata+400+8,screen+48+(56*42)
  308.      move.b picdata+440+8,screen+48+(56*43)
  309.      move.b picdata+480+8,screen+48+(56*44)
  310.      move.b picdata+520+8,screen+48+(56*45)
  311.      move.b picdata+560+8,screen+48+(56*46)
  312.      move.b picdata+600+8,screen+48+(56*47)
  313.      jmp ik
  314. char10:
  315.      cmpi.b #74,yaz  ;J
  316.      bne char11
  317.       move.b picdata+320+9,screen+48+(56*40)
  318.      move.b picdata+360+9,screen+48+(56*41)
  319.      move.b picdata+400+9,screen+48+(56*42)
  320.      move.b picdata+440+9,screen+48+(56*43)
  321.      move.b picdata+480+9,screen+48+(56*44)
  322.      move.b picdata+520+9,screen+48+(56*45)
  323.      move.b picdata+560+9,screen+48+(56*46)
  324.      move.b picdata+600+9,screen+48+(56*47)
  325.      jmp ik
  326. char11:
  327.      cmpi.b #75,yaz  ;K
  328.      bne char12
  329.       move.b picdata+320+10,screen+48+(56*40)
  330.      move.b picdata+360+10,screen+48+(56*41)
  331.      move.b picdata+400+10,screen+48+(56*42)
  332.      move.b picdata+440+10,screen+48+(56*43)
  333.      move.b picdata+480+10,screen+48+(56*44)
  334.      move.b picdata+520+10,screen+48+(56*45)
  335.      move.b picdata+560+10,screen+48+(56*46)
  336.      move.b picdata+600+10,screen+48+(56*47)
  337.      jmp ik
  338. char12:
  339.      cmpi.b #76,yaz  ;L
  340.      bne char13
  341.       move.b picdata+320+11,screen+48+(56*40)
  342.      move.b picdata+360+11,screen+48+(56*41)
  343.      move.b picdata+400+11,screen+48+(56*42)
  344.      move.b picdata+440+11,screen+48+(56*43)
  345.      move.b picdata+480+11,screen+48+(56*44)
  346.      move.b picdata+520+11,screen+48+(56*45)
  347.      move.b picdata+560+11,screen+48+(56*46)
  348.      move.b picdata+600+11,screen+48+(56*47)
  349.      jmp ik
  350. char13:
  351.      cmpi.b #77,yaz  ;M
  352.      bne char14
  353.       move.b picdata+320+12,screen+48+(56*40)
  354.      move.b picdata+360+12,screen+48+(56*41)
  355.      move.b picdata+400+12,screen+48+(56*42)
  356.      move.b picdata+440+12,screen+48+(56*43)
  357.      move.b picdata+480+12,screen+48+(56*44)
  358.      move.b picdata+520+12,screen+48+(56*45)
  359.      move.b picdata+560+12,screen+48+(56*46)
  360.      move.b picdata+600+12,screen+48+(56*47)
  361.      jmp ik
  362. char14:  
  363.      cmpi.b #78,yaz  ;N
  364.      bne char15
  365.       move.b picdata+320+13,screen+48+(56*40)
  366.      move.b picdata+360+13,screen+48+(56*41)
  367.      move.b picdata+400+13,screen+48+(56*42)
  368.      move.b picdata+440+13,screen+48+(56*43)
  369.      move.b picdata+480+13,screen+48+(56*44)
  370.      move.b picdata+520+13,screen+48+(56*45)
  371.      move.b picdata+560+13,screen+48+(56*46)
  372.      move.b picdata+600+13,screen+48+(56*47)
  373.      jmp ik
  374. char15:
  375.       cmpi.b #79,yaz  ;O
  376.      bne char16
  377.       move.b picdata+320+14,screen+48+(56*40)
  378.      move.b picdata+360+14,screen+48+(56*41)
  379.      move.b picdata+400+14,screen+48+(56*42)
  380.      move.b picdata+440+14,screen+48+(56*43)
  381.      move.b picdata+480+14,screen+48+(56*44)
  382.      move.b picdata+520+14,screen+48+(56*45)
  383.      move.b picdata+560+14,screen+48+(56*46)
  384.      move.b picdata+600+14,screen+48+(56*47)
  385.      jmp ik
  386. char16:
  387.      cmpi.b #80,yaz  ;P
  388.      bne char17
  389.       move.b picdata+320+15,screen+48+(56*40)
  390.      move.b picdata+360+15,screen+48+(56*41)
  391.      move.b picdata+400+15,screen+48+(56*42)
  392.      move.b picdata+440+15,screen+48+(56*43)
  393.      move.b picdata+480+15,screen+48+(56*44)
  394.      move.b picdata+520+15,screen+48+(56*45)
  395.      move.b picdata+560+15,screen+48+(56*46)
  396.      move.b picdata+600+15,screen+48+(56*47)
  397.      jmp ik
  398. char17:
  399.      cmpi.b #81,yaz  ;Q
  400.      bne char18
  401.       move.b picdata+320+16,screen+48+(56*40)
  402.      move.b picdata+360+16,screen+48+(56*41)
  403.      move.b picdata+400+16,screen+48+(56*42)
  404.      move.b picdata+440+16,screen+48+(56*43)
  405.      move.b picdata+480+16,screen+48+(56*44)
  406.      move.b picdata+520+16,screen+48+(56*45)
  407.      move.b picdata+560+16,screen+48+(56*46)
  408.      move.b picdata+600+16,screen+48+(56*47)
  409.      jmp ik
  410. char18:
  411.       cmpi.b #82,yaz  ;R
  412.      bne char19
  413.       move.b picdata+320+17,screen+48+(56*40)
  414.      move.b picdata+360+17,screen+48+(56*41)
  415.      move.b picdata+400+17,screen+48+(56*42)
  416.      move.b picdata+440+17,screen+48+(56*43)
  417.      move.b picdata+480+17,screen+48+(56*44)
  418.      move.b picdata+520+17,screen+48+(56*45)
  419.      move.b picdata+560+17,screen+48+(56*46)
  420.      move.b picdata+600+17,screen+48+(56*47)
  421.      jmp ik
  422. char19:
  423.      cmpi.b #83,yaz  ;S
  424.      bne char20
  425.       move.b picdata+320+18,screen+48+(56*40)
  426.      move.b picdata+360+18,screen+48+(56*41)
  427.      move.b picdata+400+18,screen+48+(56*42)
  428.      move.b picdata+440+18,screen+48+(56*43)
  429.      move.b picdata+480+18,screen+48+(56*44)
  430.      move.b picdata+520+18,screen+48+(56*45)
  431.      move.b picdata+560+18,screen+48+(56*46)
  432.      move.b picdata+600+18,screen+48+(56*47)
  433.      jmp ik
  434. char20:
  435.      cmpi.b #84,yaz  ;T
  436.      bne char21
  437.       move.b picdata+320+19,screen+48+(56*40)
  438.      move.b picdata+360+19,screen+48+(56*41)
  439.      move.b picdata+400+19,screen+48+(56*42)
  440.      move.b picdata+440+19,screen+48+(56*43)
  441.      move.b picdata+480+19,screen+48+(56*44)
  442.      move.b picdata+520+19,screen+48+(56*45)
  443.      move.b picdata+560+19,screen+48+(56*46)
  444.      move.b picdata+600+19,screen+48+(56*47)
  445.      jmp ik
  446. char21:
  447.      cmpi.b #85,yaz  ;U
  448.      bne char22
  449.       move.b picdata+320+20,screen+48+(56*40)
  450.      move.b picdata+360+20,screen+48+(56*41)
  451.      move.b picdata+400+20,screen+48+(56*42)
  452.      move.b picdata+440+20,screen+48+(56*43)
  453.      move.b picdata+480+20,screen+48+(56*44)
  454.      move.b picdata+520+20,screen+48+(56*45)
  455.      move.b picdata+560+20,screen+48+(56*46)
  456.      move.b picdata+600+20,screen+48+(56*47)
  457.      jmp ik
  458. char22:
  459.      cmpi.b #86,yaz  ;V
  460.      bne char23
  461.       move.b picdata+320+21,screen+48+(56*40)
  462.      move.b picdata+360+21,screen+48+(56*41)
  463.      move.b picdata+400+21,screen+48+(56*42)
  464.      move.b picdata+440+21,screen+48+(56*43)
  465.      move.b picdata+480+21,screen+48+(56*44)
  466.      move.b picdata+520+21,screen+48+(56*45)
  467.      move.b picdata+560+21,screen+48+(56*46)
  468.      move.b picdata+600+21,screen+48+(56*47)
  469.      jmp ik
  470. char23:
  471.      cmpi.b #87,yaz  ;W
  472.      bne char24
  473.       move.b picdata+320+22,screen+48+(56*40)
  474.      move.b picdata+360+22,screen+48+(56*41)
  475.      move.b picdata+400+22,screen+48+(56*42)
  476.      move.b picdata+440+22,screen+48+(56*43)
  477.      move.b picdata+480+22,screen+48+(56*44)
  478.      move.b picdata+520+22,screen+48+(56*45)
  479.      move.b picdata+560+22,screen+48+(56*46)
  480.      move.b picdata+600+22,screen+48+(56*47)
  481.      jmp ik
  482. char24:
  483.      cmpi.b #88,yaz  ;X
  484.      bne char25
  485.       move.b picdata+320+23,screen+48+(56*40)
  486.      move.b picdata+360+23,screen+48+(56*41)
  487.      move.b picdata+400+23,screen+48+(56*42)
  488.      move.b picdata+440+23,screen+48+(56*43)
  489.      move.b picdata+480+23,screen+48+(56*44)
  490.      move.b picdata+520+23,screen+48+(56*45)
  491.      move.b picdata+560+23,screen+48+(56*46)
  492.      move.b picdata+600+23,screen+48+(56*47)
  493.      jmp ik
  494. char25:
  495.      cmpi.b #89,yaz  ;Y
  496.      bne char26
  497.       move.b picdata+320+24,screen+48+(56*40)
  498.      move.b picdata+360+24,screen+48+(56*41)
  499.      move.b picdata+400+24,screen+48+(56*42)
  500.      move.b picdata+440+24,screen+48+(56*43)
  501.      move.b picdata+480+24,screen+48+(56*44)
  502.      move.b picdata+520+24,screen+48+(56*45)
  503.      move.b picdata+560+24,screen+48+(56*46)
  504.      move.b picdata+600+24,screen+48+(56*47)
  505.      jmp ik    
  506. char26:
  507.      cmpi.b #90,yaz  ;Z
  508.      bne char27
  509.       move.b picdata+320+25,screen+48+(56*40)
  510.      move.b picdata+360+25,screen+48+(56*41)
  511.      move.b picdata+400+25,screen+48+(56*42)
  512.      move.b picdata+440+25,screen+48+(56*43)
  513.      move.b picdata+480+25,screen+48+(56*44)
  514.      move.b picdata+520+25,screen+48+(56*45)
  515.      move.b picdata+560+25,screen+48+(56*46)
  516.      move.b picdata+600+25,screen+48+(56*47)
  517.      jmp ik    
  518. char27:
  519.      cmpi.b #32,yaz  ;SPACE
  520.      bne char32
  521.       move.b picdata,screen+48+(56*40)
  522.      move.b picdata+40,screen+48+(56*41)
  523.      move.b picdata+80,screen+48+(56*42)
  524.      move.b picdata+120,screen+48+(56*43)
  525.      move.b picdata+160,screen+48+(56*44)
  526.      move.b picdata+200,screen+48+(56*45)
  527.      move.b picdata+240,screen+48+(56*46)
  528.      move.b picdata+280,screen+48+(56*47)
  529.      jmp ik    
  530.  
  531. char32:
  532.       cmpi.b #46,yaz  ;. 
  533.      bne char33
  534.       move.b picdata+11,screen+48+(56*40)
  535.      move.b picdata+40+11,screen+48+(56*41)
  536.      move.b picdata+80+11,screen+48+(56*42)
  537.      move.b picdata+120+11,screen+48+(56*43)
  538.      move.b picdata+160+11,screen+48+(56*44)
  539.      move.b picdata+200+11,screen+48+(56*45)
  540.      move.b picdata+240+11,screen+48+(56*46)
  541.      move.b picdata+280+11,screen+48+(56*47)
  542.      jmp ik
  543. char33:
  544.      cmpi.b #48,yaz  ;0 
  545.      bne char34
  546.       move.b picdata+10,screen+48+(56*40)
  547.      move.b picdata+40+10,screen+48+(56*41)
  548.      move.b picdata+80+10,screen+48+(56*42)
  549.      move.b picdata+120+10,screen+48+(56*43)
  550.      move.b picdata+160+10,screen+48+(56*44)
  551.      move.b picdata+200+10,screen+48+(56*45)
  552.      move.b picdata+240+10,screen+48+(56*46)
  553.      move.b picdata+280+10,screen+48+(56*47)
  554.      jmp ik
  555. char34:
  556.      cmpi.b #49,yaz  ;1 
  557.      bne char35
  558.       move.b picdata+1,screen+48+(56*40)
  559.      move.b picdata+40+1,screen+48+(56*41)
  560.      move.b picdata+80+1,screen+48+(56*42)
  561.      move.b picdata+120+1,screen+48+(56*43)
  562.      move.b picdata+160+1,screen+48+(56*44)
  563.      move.b picdata+200+1,screen+48+(56*45)
  564.      move.b picdata+240+1,screen+48+(56*46)
  565.      move.b picdata+280+1,screen+48+(56*47)
  566.      jmp ik    
  567. char35:
  568.      cmpi.b #50,yaz  ;2 
  569.      bne char36
  570.       move.b picdata+2,screen+48+(56*40)
  571.      move.b picdata+40+2,screen+48+(56*41)
  572.      move.b picdata+80+2,screen+48+(56*42)
  573.      move.b picdata+120+2,screen+48+(56*43)
  574.      move.b picdata+160+2,screen+48+(56*44)
  575.      move.b picdata+200+2,screen+48+(56*45)
  576.      move.b picdata+240+2,screen+48+(56*46)
  577.      move.b picdata+280+2,screen+48+(56*47)
  578.      jmp ik        
  579.      
  580. char36:
  581.      cmpi.b #51,yaz  ;3 
  582.      bne char37
  583.       move.b picdata+3,screen+48+(56*40)
  584.      move.b picdata+40+3,screen+48+(56*41)
  585.      move.b picdata+80+3,screen+48+(56*42)
  586.      move.b picdata+120+3,screen+48+(56*43)
  587.      move.b picdata+160+3,screen+48+(56*44)
  588.      move.b picdata+200+3,screen+48+(56*45)
  589.      move.b picdata+240+3,screen+48+(56*46)
  590.      move.b picdata+280+3,screen+48+(56*47)
  591.      jmp ik        
  592. char37:
  593.      cmpi.b #52,yaz  ;4
  594.      bne char38
  595.       move.b picdata+4,screen+48+(56*40)
  596.      move.b picdata+40+4,screen+48+(56*41)
  597.      move.b picdata+80+4,screen+48+(56*42)
  598.      move.b picdata+120+4,screen+48+(56*43)
  599.      move.b picdata+160+4,screen+48+(56*44)
  600.      move.b picdata+200+4,screen+48+(56*45)
  601.      move.b picdata+240+4,screen+48+(56*46)
  602.      move.b picdata+280+4,screen+48+(56*47)
  603.      jmp ik
  604. char38:
  605.      cmpi.b #53,yaz  ;5
  606.      bne char39
  607.       move.b picdata+5,screen+48+(56*40)
  608.      move.b picdata+40+5,screen+48+(56*41)
  609.      move.b picdata+80+5,screen+48+(56*42)
  610.      move.b picdata+120+5,screen+48+(56*43)
  611.      move.b picdata+160+5,screen+48+(56*44)
  612.      move.b picdata+200+5,screen+48+(56*45)
  613.      move.b picdata+240+5,screen+48+(56*46)
  614.      move.b picdata+280+5,screen+48+(56*47)
  615.      jmp ik
  616. char39:
  617.      cmpi.b #54,yaz  ;6
  618.      bne char40
  619.       move.b picdata+6,screen+48+(56*40)
  620.      move.b picdata+40+6,screen+48+(56*41)
  621.      move.b picdata+80+6,screen+48+(56*42)
  622.      move.b picdata+120+6,screen+48+(56*43)
  623.      move.b picdata+160+6,screen+48+(56*44)
  624.      move.b picdata+200+6,screen+48+(56*45)
  625.      move.b picdata+240+6,screen+48+(56*46)
  626.      move.b picdata+280+6,screen+48+(56*47)
  627.      jmp ik     
  628. char40:
  629.      cmpi.b #55,yaz  ;7
  630.      bne char41
  631.       move.b picdata+7,screen+48+(56*40)
  632.      move.b picdata+40+7,screen+48+(56*41)
  633.      move.b picdata+80+7,screen+48+(56*42)
  634.      move.b picdata+120+7,screen+48+(56*43)
  635.      move.b picdata+160+7,screen+48+(56*44)
  636.      move.b picdata+200+7,screen+48+(56*45)
  637.      move.b picdata+240+7,screen+48+(56*46)
  638.      move.b picdata+280+7,screen+48+(56*47)
  639.      jmp ik         
  640. char41:
  641.      cmpi.b #56,yaz  ;8
  642.      bne char42
  643.       move.b picdata+8,screen+48+(56*40)
  644.      move.b picdata+40+8,screen+48+(56*41)
  645.      move.b picdata+80+8,screen+48+(56*42)
  646.      move.b picdata+120+8,screen+48+(56*43)
  647.      move.b picdata+160+8,screen+48+(56*44)
  648.      move.b picdata+200+8,screen+48+(56*45)
  649.      move.b picdata+240+8,screen+48+(56*46)
  650.      move.b picdata+280+8,screen+48+(56*47)
  651.      jmp ik     
  652. char42:
  653.      cmpi.b #57,yaz  ;9
  654.      bne char43
  655.      move.b picdata+9,screen+48+(56*40)
  656.      move.b picdata+40+9,screen+48+(56*41)
  657.      move.b picdata+80+9,screen+48+(56*42)
  658.      move.b picdata+120+9,screen+48+(56*43)
  659.      move.b picdata+160+9,screen+48+(56*44)
  660.      move.b picdata+200+9,screen+48+(56*45)
  661.      move.b picdata+240+9,screen+48+(56*46)
  662.      move.b picdata+280+9,screen+48+(56*47)
  663.      jmp ik    
  664.      
  665. char43:
  666.      cmpi.b #91,yaz  ;` = [
  667.      bne char44
  668.      move.b picdata+13,screen+48+(56*40)
  669.      move.b picdata+40+13,screen+48+(56*41)
  670.      move.b picdata+80+13,screen+48+(56*42)
  671.      move.b picdata+120+13,screen+48+(56*43)
  672.      move.b picdata+160+13,screen+48+(56*44)
  673.      move.b picdata+200+13,screen+48+(56*45)
  674.      move.b picdata+240+13,screen+48+(56*46)
  675.      move.b picdata+280+13,screen+48+(56*47)
  676.      jmp ik     
  677.  
  678. char44:
  679.      cmpi.b #93,yaz  ;' = ]
  680.      bne char47
  681.      move.b picdata+14,screen+48+(56*40)
  682.      move.b picdata+40+14,screen+48+(56*41)
  683.      move.b picdata+80+14,screen+48+(56*42)
  684.      move.b picdata+120+14,screen+48+(56*43)
  685.      move.b picdata+160+14,screen+48+(56*44)
  686.      move.b picdata+200+14,screen+48+(56*45)
  687.      move.b picdata+240+14,screen+48+(56*46)
  688.      move.b picdata+280+14,screen+48+(56*47)
  689.      jmp ik    
  690.  
  691. char47:
  692. ik:     cmpi.b #1,gook
  693.      beq baj
  694.      move.b screen+48+(56*40),screen+47+(56*40)
  695.      move.b screen+48+(56*41),screen+47+(56*41)
  696.      move.b screen+48+(56*42),screen+47+(56*42)
  697.      move.b screen+48+(56*43),screen+47+(56*43)
  698.      move.b screen+48+(56*44),screen+47+(56*44)
  699.      move.b screen+48+(56*45),screen+47+(56*45)
  700.      move.b screen+48+(56*46),screen+47+(56*46)
  701.      move.b screen+48+(56*47),screen+47+(56*47)
  702.      move.b #1,gook
  703.      jmp printy
  704. baj:     move.b #0,gook
  705.      rts
  706. table:
  707.      dc.b 'BLACK BOX PROUDLY PRESENT A FULL SCREEN BLITTER SCROLL. '
  708.      dc.b 'WRITTEN BY AX. [SUCK IT ARSEHOLES] BECAUSE THIS WAS DONE IN 1990'
  709.      dc.b ' BY THE BEST. GREETINGS TO NOBODY. SHIT OFF.            '
  710.      dc.b '[AND ALL OF A SUDDEN HE WAS SOBER AGAIN]'
  711.      dc.b '              KOTZ KOTZ KOTZ KOTZ KOTZ KOTZ KOTZ KOTZ HIC.'
  712.      dc.b '              MY NAME IS NAMRON 7.                        '
  713.      dc.b '[WE HAVENT COME HERE TO PISS ABOUT]                      '
  714.      dc.b 'FELLOW MEMBERS ARE GIZ [GRAPHIX] AND SLUDGE [PSEUDO MUSICIAN].'
  715.      dc.b '             TELEPHONE 0742 325224 FOR ONE LONG INSULT.       '
  716.      dc.b '   STEAMING FAECES TO YOU ALL.                            '
  717.      dc.b ' MUSIC BY CHRONOS.                '
  718.      dc.b 'WRAP THIS SHAT.                                          '
  719.      dc.b '                   '
  720.      dc.b 0
  721.      
  722.      even    
  723.       
  724.      include 'df2:insert/noisetracker insert'
  725.  
  726. equals:
  727.     
  728.     cmpi.w #0,mt_voice1
  729.     bne doit
  730.     move.w #$0000,n1
  731. oi:    cmpi.w #0,mt_voice2
  732.     bne doit1
  733.     move.w #$0000,n2
  734. oi1:    cmpi.w #0,mt_voice3
  735.     bne doit2
  736.     move.w #$0000,n3
  737. oi2:    cmpi.w #0,mt_voice4
  738.     bne doit3
  739.     move.w #$0000,n4
  740.     jmp dreads
  741.     
  742. doit:    
  743.  
  744.     move.w #$0f00,n1
  745.     jmp oi
  746.     
  747. doit1:
  748.  
  749.     move.w #$00f0,n2
  750.     jmp oi1
  751.     
  752. doit2:
  753.  
  754.     move.w #$000f,n3
  755.     jmp oi2
  756.     
  757. doit3:
  758.  
  759.     move.w #$0ff0,n4
  760.     
  761. dreads: 
  762.  
  763.     rts
  764.     
  765.